在VB中如何做出下拉菜单

今天宠物迷的小编给各位宠物饲养爱好者分享vb中下拉菜单怎么设置的宠物知识，其中也会对在VB中如何做出下拉菜单(vb中的下拉菜单怎么弄)进行专业的解释，如果能碰巧解决你现在面临的宠物相关问题，别忘了关注本站哦，现在我们开始吧！

在VB中如何做出下拉菜单

【QQ登录是选择隐身，在线之内的】用的是列表框listbox，
【点一下设置，也会弹出来这些】，
这个并不是菜单，
其实很简单，
方法如下：
你把开始不显示直到点设置才显示的控件全都放在最底下，
然后把窗体高度调小，直到看不见底下的控件，
在设置按钮中添加代码：
Me.Height = Me.Height + 一个数值
这个数值自己调整就可以了

vb上面怎么在窗体上同时建立多个菜单啊

1.在"菜单编辑器窗口"中建立一个将要作为弹出式菜单的主菜单项,如你所说的,就是"编辑"主菜单项,此菜单项的标题为"编辑",名称为"edit",所包含的菜单项为"剪切","复制","粘贴".建立弹出式菜单所需的菜单后,可以把"编辑"的visible属性设置为false,也可以设置为true,关键看你需要.
2.为建立好的菜单编写程序代码,要显示弹出式菜单,可以使用popupmenu方法,大概代码如下:
private
sub
form_mouseup(button
as
integer,shift
as
integer,x
as
single,y
as
single)
if
button=2
then
'检查是否按下的是鼠标右键
popupmenu
edit
'edit是"编辑"菜单的控制名,将其激活显示在窗体上
end
if
end
sub

vb菜单编辑中的分隔线如何做

在菜单编辑器中，将你要设置的分割线的名字的地方写上-
英文的破折号就可以了

怎么用VB制作下拉菜单？

材料/工具：VB 1、启动VB6.0，创建一个标准工程。 2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。 3、在弹出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见我们刚才编辑的菜单名称。 4、在显示区中单击已经建好的菜单下面，再创建一个菜单。 5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，我们就可以通过编辑区上的方向键来实现，单击右方向键按钮后，我们会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。 6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

使用VB如何在窗体上右键实现类似于“在桌面点击右键出现下拉菜单”的效果？

这个是弹出菜单，菜单在窗体上不显示，单击右键时弹出，所以需要将所有菜单做成子菜单。
1、先在VB里打开菜单编辑器（在窗体显示的情况下，在工具菜单里点“菜单编辑器"
2、新建菜单：（1）先做一个总菜单项，标题中填写”弹出",名称中填写mymenu，该菜单项是不显示的，用来弹出。（2）做如图子菜单，标题中填写菜单中显示的内容，比如：排列图标，刷新等等，名称内输入你自定义的名称，比如：排列图标的名称mnu_pailie，名称用来在编写代码时识别该菜单。横线在VB中标题内输入减号（-），名称也需要输入。（3）下级菜单（如排列图标有下级菜单），用向右的箭头调整
只要是标题和名称输入好了，就是合法的。其它不符合要求可以慢慢修改，不影响你条试验。
3、编写代码：
Private Sub Form_Load()
mymenu.Visible = False‘mymenu是要弹出总菜单的名称，在窗体上禁止显示，当然，你也可以让它显示
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗体的鼠标按键抬起事件，当鼠标按键向上抬起时发生
If Button = vbRightButton Then‘button参数是按键，如果抬起的是鼠标右键时
Me.PopupMenu mymenu’弹出mymenu
End If
End Sub
‘鼠标点击后索要完成的功能，在该菜单名称的click中编写代码：
Private Sub mnu_pailie_Click()
’这里编写排列图标代码

End Sub

VB中制作下拉菜单

添加一个commondialog控件
然后：commondialog1.showopen

VB怎么创建下拉列表？

添加一个combobox,在属性栏里有一个List项,用鼠标点它就会出来一个下拉框,你在下拉框里边写东西,一个代表一个项目
注意:换行时要用ctrl+加车,否则焦点就没了,还得重新点击输入

在程序里也可以这样:
combo1.AddItem "项目1"
combo1.AddItem "项目2"
...
combo1.AddItem "项目n"

做个了vb程序，点菜系统的但是有时选择菜单时会出现下标越界，求大神解读

你这个For循环使用的循环上限是数组wenjianhao1的下标上限，但循环里面使用了多个其他数组，如fukuan、wenjianhao2等，那么你就要保证这些数组的上限至少不能小于wenjianhao1的上限，否则就会提示下标越界的